home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / dev / obero / oberonf.lha / Out.Mod (.txt) next >
Oberon Text  |  1994-06-30  |  1KB  |  32 lines
  1. Syntax10.Scn.Fnt
  2. MODULE Out;    
  3. (* Stream-oriented text output, MR 1992, NW 26.11.92 *)
  4. IMPORT Texts, Oberon, MenuViewers, TextFrames;
  5. VAR W: Texts.Writer;
  6. PROCEDURE Char*(ch: CHAR);
  7. BEGIN Texts.Write(W, ch); Texts.Append(Oberon.Log, W.buf)
  8. END Char;
  9. PROCEDURE String*(str: ARRAY OF CHAR);
  10. BEGIN Texts.WriteString(W, str); Texts.Append(Oberon.Log, W.buf)
  11. END String;
  12. PROCEDURE Int*(i, n: LONGINT);
  13. BEGIN Texts.WriteInt(W, i, n); Texts.Append(Oberon.Log, W.buf)
  14. END Int;
  15. PROCEDURE Real*(x: REAL; n: INTEGER);
  16. BEGIN Texts.WriteReal(W, x, n); Texts.Append(Oberon.Log, W.buf)
  17. END Real;
  18. PROCEDURE LongReal*(x: LONGREAL; n: INTEGER);
  19. BEGIN Texts.WriteLongReal(W, x, n); Texts.Append(Oberon.Log, W.buf)
  20. END LongReal;
  21. PROCEDURE Ln*;
  22. BEGIN Texts.WriteLn(W); Texts.Append(Oberon.Log, W.buf)
  23. END Ln;
  24. PROCEDURE Open*;
  25. VAR r: Texts.Reader; ch: CHAR;
  26. BEGIN
  27.     Texts.OpenReader(r, Oberon.Log, Oberon.Log.len-1); Texts.Read(r, ch);
  28.     IF ch # 0DX THEN Ln END
  29. END Open;
  30. BEGIN Texts.OpenWriter(W); Open
  31. END Out.
  32.